home *** CD-ROM | disk | FTP | other *** search
-
- %EQU OS_VERSION='D00'; /* This is B03, C00, C01 or D00 */
-
- %LIST;
- %INCLUDE HC6KERMIT_C61;
- %EJECT;
- KERMIT_NODES(%KERMIT##,D) = ( ['('] [<';',CMDS>] [')'] ) .END
-
- CMDS = ( ;
- ALL_HELP | ;
- BYE | ;
- CG | ;
- DEBUG | ;
- DONT_GREET | ;
- DONT_PROMPT | ;
- FINISH | ;
- HELP | ;
- LOCAL | ;
- LOG | ;
- LIST | ;
- MORE_HELP | ;
- NO_DEFAULTS | ;
- NULL | ;
- PROMPT | ;
- READ | ;
- RECEIVE | ;
- SEND | ;
- SERVER | ;
- SET | ;
- SHOW | ;
- SILENT | ;
- STATION | ;
- STATISTICS | ;
- TRANSMIT | ;
- XIT ;
- )
-
- ALL_HELP(%ALL_HELP##) = '??'
- BYE(%BYE##) = 'BYE'
- CG(%CG##) = 'CG' ['='] .FID
- DEBUG(%DEBUG##) = 'DEB/UG' [DEBUG_FID] ['(' <',',DEBUG_OPTS> ')']
- DONT_GREET(%DONT_GREET##) = ( 'D/ONT' | 'N/O' ) 'G/REETING'
- DONT_PROMPT(%DONT_PROMPT##) = ( 'D/ONT' | 'N/O' ) 'P/ROMPT'
- FINISH(%FINISH##) = 'FIN/ISH'
- HELP(%HELP##) = 'H/ELP' .ASYM+';'
- LIST(%LIST##) = 'L/IST' [.B .ASYM+';']
- LOCAL(%LOCAL##) = LOCAL_OPTS
- LOG(%LOG##) = 'LOG' ['T/RANSACTIONS'] [.B HOW] .B .FID
- MORE_HELP(%MORE_HELP##) = '?'
- NO_DEFAULTS(%NO_DEFAULTS##) = 'N/O' 'D/EFAULTS'
- NULL(%NULL##) = [.B] .END
- PROMPT(%PROMPT##) = 'PROM/PT' .B ( .QUOTE31 | .AN31 )
- READ(%READ##) = ( 'READ' | 'TAKE' | 'XEQ' ) .B .FID
- RECEIVE(%RECEIVE##) = 'REC/EIVE' [.B .FID [.B HOW .B .FID]]
- SEND(%SEND##) = 'SEN/D' .B .FID [[.B 'AS'] .B .FID]
- SERVER(%SERVER##) = 'SER/VER'
- SET(%SET##) = 'SET' <',',SET_OPTS>
- SHOW(%SHOW##) = 'SHOW'
- SILENT(%SILENT##) = 'SILE/NT' ['M/ODE']
- STATION(%STATION##) = 'STATION' ['='] .FID
- STATISTICS(%STATISTICS##) = 'STAT/ISTICS'
- TRANSMIT(%TRANSMIT##) = 'TR/ANSMIT' .B .FID
- XIT(%XIT##) = ( 'EN/D' | ['E'] 'X/IT' | 'Q/UIT' )
-
- DEBUG_FID(%DEBUG_FID##) = [HOW] .FID
-
- DEBUG_OPTS = ( ;
- DEBUG_ALL | ;
- DEBUG_COMMAND | ;
- DEBUG_ERROR | ;
- DEBUG_INFO | ;
- DEBUG_MICRO | ;
- DEBUG_OFF | ;
- DEBUG_ON | ;
- DEBUG_READ | ;
- DEBUG_RECEIVE | ;
- DEBUG_SEND | ;
- DEBUG_TIMEOUT | ;
- DEBUG_WRITE ;
- )
- DEBUG_ALL(%DEBUG_ALL##) = 'A/LL'
- DEBUG_COMMAND(%DEBUG_COMMAND##) = 'C/O'['M/MA'['ND']]
- DEBUG_ERROR(%DEBUG_ERROR##) = 'E/RROR'
- DEBUG_INFO(%DEBUG_INFO##) = 'I/NFORMATION'
- DEBUG_MICRO(%DEBUG_MICRO##) = 'M/ICRO' ['I///O']
- DEBUG_OFF(%DEBUG_OFF##) = 'OF/F'
- DEBUG_ON(%DEBUG_ON##) = 'ON'
- DEBUG_READ(%DEBUG_READ##) = 'REA/D'
- DEBUG_RECEIVE(%DEBUG_RECEIVE##) = 'REC/EIVE'
- DEBUG_SEND(%DEBUG_SEND##) = 'S/END'
- DEBUG_TIMEOUT(%DEBUG_TIMEOUT##) = 'T/IMEOUT'
- DEBUG_WRITE(%DEBUG_WRITE##) = 'W/RITE'
-
- LOCAL_OPTS = ( ;
- LOCAL_CWD | ;
- LOCAL_COPY | ;
- LOCAL_DELETE | ;
- LOCAL_DIR ;
- )
- LOCAL_COPY(%LOCAL_COPY##) = ['LOC/AL'] 'C/OPY' .ASYM+';'
- %IF OS_VERSION='B03';
- LOCAL_CWD(%LOCAL_CWD##) = 'LOC/AL' 'CWD' ['.'] .A
- %ELSE;
- LOCAL_CWD(%LOCAL_CWD##) = 'LOC/AL' 'CWD' [['.'] .ACCOUNT]
- %ENDIF;
- LOCAL_DELETE(%LOCAL_DELETE##) = ['LOC/AL'] 'DEL/ETE' .ASYM+';'
- LOCAL_DIR(%LOCAL_DIR##) = 'LOC/AL' 'DIR/ECTORY' .ASYM+';'
-
- SET_OPTS = ( ;
- SET_BLOCK_CHECK | ;
- SET_DELAY | ;
- SET_FILE | ;
- SET_RETRY | ;
- SET_SEND | ;
- SET_TAB_EXPANSION | ;
- SET_TABS ;
- )
- SET_BLOCK_CHECK(%SET_BLOCK_CHECK##) = 'B/LOCK' ['-'] ['C/HECK'] ( [.B] '=' [.B] | .B ) ;
- ( ;
- ONE_CHAR_CHECKSUM | ;
- TWO_CHAR_CHECKSUM | ;
- THREE_CHAR_CHECKSUM ;
- )
- ONE_CHAR_CHECKSUM(%ONE_CHAR_CHECKSUM##) = ;
- ( '1' | 'O/NE' ) ['C/HARACTER' ['C/HECKSUM']]
- TWO_CHAR_CHECKSUM(%TWO_CHAR_CHECKSUM##) = ;
- ( '2' | 'T/WO' ) ['C/HARACTER' ['C/HECKSUM']]
- THREE_CHAR_CHECKSUM(%THREE_CHAR_CHECKSUM##) = ;
- ( '3' | 'T/HREE' ) ['C/HARACTER' ['C/HECKSUM']]
-
- SET_DELAY(%SET_DELAY##) = 'D/ELAY' ['='] .DEC
-
- SET_FILE(%SET_FILE##) = 'F/ILE' .B ;
- ( ;
- /* SET_FILE_BINARY_EXTENSIONS | ; see below */
- SET_FILE_CP6_FIDS_YES | ;
- SET_FILE_CP6_FIDS_NO | ;
- SET_FILE_EDIT_YES | ;
- SET_FILE_EDIT_NO | ;
- SET_FILE_END_OF_RECORD | ;
- SET_FILE_INCOMPLETE_DISCARD | ;
- SET_FILE_INCOMPLETE_KEEP | ;
- SET_FILE_MODE_AUTO | ;
- SET_FILE_MODE_BINARY | ;
- SET_FILE_MODE_TEXT | ;
- SET_FILE_NAMES_ASIS | ;
- SET_FILE_NAMES_LC | ;
- SET_FILE_NAMES_UC | ;
- SET_FILE_PC_EXTENSIONS_YES | ;
- SET_FILE_PC_EXTENSIONS_NO | ;
- SET_FILE_BINARY_EXTENSIONS | ;
- SET_FILE_PREFIX | ;
- SET_FILE_REPLACEMENT | ;
- SET_FILE_SUBDIRECTORY_CHAR | ;
- SET_FILE_SUBDIRECTORY_OFF | ;
- SET_FILE_SUBDIRECTORY_ON | ;
- SET_FILE_WARNING_ON | ;
- SET_FILE_WARNING_INTO | ;
- SET_FILE_WARNING_OFF ;
- )
- SET_FILE_BINARY_EXTENSIONS(%SET_FILE_BINARY_EXTENSIONS##) = ;
- ['B/INARY'] 'EX/TENSIONS' ( [.B] '=' [.B] | .B ) <',',(.AN11|.Q11)>
- SET_FILE_CP6_FIDS_YES(%SET_FILE_CP6_FIDS_YES##) = ;
- 'C/P' ['-'] ['6'] ['F/IDS'] ['P/ERMITTED'] ( [.B] '=' [.B] | .B ) ('Y/ES' | 'ON')
- SET_FILE_CP6_FIDS_NO(%SET_FILE_CP6_FIDS_NO##) = ;
- 'C/P' ['-'] ['6'] ['F/IDS'] ['P/ERMITTED'] ( [.B] '=' [.B] | .B ) ('N/O' | 'OFF')
- SET_FILE_EDIT_YES(%SET_FILE_EDIT_YES##) = ;
- 'E/DIT' ['K/EY'] ( [.B] '=' [.B] | .B ) ( 'Y/ES' | 'ON' )
- SET_FILE_EDIT_NO(%SET_FILE_EDIT_NO##) = ;
- 'E/DIT' ['K/EY'] ( [.B] '=' [.B] | .B ) ( 'N/O' | 'OFF' )
- SET_FILE_END_OF_RECORD(%SET_FILE_END_OF_RECORD##) = ;
- 'E/ND' 'O/F' 'R/ECORD' ( [.B] '=' [.B] | .B ) <',',.DEC3>
- SET_FILE_INCOMPLETE_DISCARD(%SET_FILE_INCOMPLETE_DISCARD##) = ;
- 'I/NCOMPLETE' ( [.B] '=' [.B] | .B ) 'D/ISCARD'
- SET_FILE_INCOMPLETE_KEEP(%SET_FILE_INCOMPLETE_KEEP##) = ;
- 'I/NCOMPLETE' ( [.B] '=' [.B] | .B ) 'K/EEP'
- SET_FILE_MODE_AUTO(%SET_FILE_MODE_AUTO##) = ;
- 'M/ODE' ( [.B] '=' [.B] | .B ) 'A/UTOMATIC'
- SET_FILE_MODE_BINARY(%SET_FILE_MODE_BINARY##) = ;
- 'M/ODE' ( [.B] '=' [.B] | .B ) 'B/INARY'
- SET_FILE_MODE_TEXT(%SET_FILE_MODE_TEXT##) = ;
- 'M/ODE' ( [.B] '=' [.B] | .B ) 'T/EXT'
- SET_FILE_NAMES_ASIS(%SET_FILE_NAMES_ASIS##) = ;
- 'N/AMES' ( [.B] '=' [.B] | .B ) 'A/S' ['IS']
- SET_FILE_NAMES_LC(%SET_FILE_NAMES_LC##) = ;
- 'N/AMES' ( [.B] '=' [.B] | .B ) 'L/OWER' ['C/ASE']
- SET_FILE_NAMES_UC(%SET_FILE_NAMES_UC##) = ;
- 'N/AMES' ( [.B] '=' [.B] | .B ) 'U/PPER' ['C/ASE']
- SET_FILE_PC_EXTENSIONS_YES(%SET_FILE_PC_EXTENSIONS_YES##) = ;
- ['PC'] 'EX/TENSIONS' ( [.B] '=' [.B] | .B ) ( 'Y/ES' | 'ON' )
- SET_FILE_PC_EXTENSIONS_NO(%SET_FILE_PC_EXTENSIONS_NO##) = ;
- ['PC'] 'EX/TENSIONS' ( [.B] '=' [.B] | .B ) ( 'N/O' | 'OFF' )
- SET_FILE_PREFIX(%SET_FILE_PREFIX##) = ;
- 'PR/EFIX' ( [.B] '=' [.B] | .B ) .Q19
- SET_FILE_REPLACEMENT(%SET_FILE_REPLACEMENT##) = ;
- 'R/EPLACEMENT' ['C/HARACTER'] ( [.B] '=' [.B] | .B ) .Q1
- SET_FILE_SUBDIRECTORY_CHAR(%SET_FILE_SUBDIRECTORY_CHAR##) = ;
- 'SUB' ['D/IRECTORY'] ['C/HARACTER'] ( [.B] '=' [.B] | .B ) .Q1
- SET_FILE_SUBDIRECTORY_OFF(%SET_FILE_SUBDIRECTORY_OFF##) = ;
- 'SUB' ['D/IRECTORY'] ( [.B] '=' [.B] | .B ) ( 'N/O' | 'OFF' )
- SET_FILE_SUBDIRECTORY_ON(%SET_FILE_SUBDIRECTORY_ON##) = ;
- 'SUB' ['D/IRECTORY'] ( [.B] '=' [.B] | .B ) ( 'Y/ES' | 'ON' )
- SET_FILE_WARNING_ON(%SET_FILE_WARNING_ON##) = ;
- 'W/ARNING' ( [.B] '=' [.B] | .B ) ( 'ON' | 'TO' )
- SET_FILE_WARNING_INTO(%SET_FILE_WARNING_INTO##) = ;
- 'W/ARNING' ( [.B] '=' [.B] | .B ) 'INTO'
- SET_FILE_WARNING_OFF(%SET_FILE_WARNING_OFF##) = ;
- 'W/ARNING' ( [.B] '=' [.B] | .B ) ( 'OFF' | 'OVER' )
-
- SET_SEND(%SET_SEND##) = 'SEN/D' .B ;
- <',',( ;
- SEND_EIGHT_BIT_QUOTE | ;
- SEND_END_OF_LINE | ;
- SEND_PACKET_LENGTH | ;
- SEND_PAUSE | ;
- SEND_PADDING | ;
- SEND_PADCHAR | ;
- SEND_QUOTE | ;
- SEND_REPT | ;
- SEND_START_OF_PACKET | ;
- SEND_TIMEOUT ;
- )>
- SEND_EIGHT_BIT_QUOTE(%SEND_EIGHT_BIT_QUOTE##) = ;
- 'EI/GHT' ['B/IT'] ['Q/UOTING'] ['C/HARACTER'] ;
- ( [.B] '=' [.B] | .B ) ( .AN1 | .Q1 )
- SEND_END_OF_LINE(%SEND_END_OF_LINE##) = ;
- 'E/ND' ['-'] ['O/F'] ['-'] ['L/INE'] ( [.B] '=' [.B] | .B ) .DEC3
- SEND_PACKET_LENGTH(%SEND_PACKET_LENGTH##) = ;
- ( 'M/AXIMUM' | 'PACK/ET' ) ['L/ENGTH'] ( [.B] '=' [.B] | .B ) .DEC2
- SEND_PAUSE(%SEND_PAUSE##) = ;
- 'PAU/SE' ( '=' | .B ) .DEC
- SEND_PADDING(%SEND_PADDING##) = ;
- ( 'NPAD/DING' | 'PADD/ING' ) ( '=' | .B ) .DEC
- SEND_PADCHAR(%SEND_PADCHAR##) = ;
- 'PADC/HAR' ( [.B] '=' [.B] | .B ) .DEC3
- SEND_QUOTE(%SEND_QUOTE##) = ;
- 'Q/UOTE' ['CTL'] ( [.B] '=' [.B] | .B ) .Q1
- SEND_REPT(%SEND_REPT## ) = ;
- 'R/EP' ['E/A'] ['T'] ['C/HARACTER'] ( [.B] '=' [.B] | .B ) ( .AN1 | .Q1 )
- SEND_START_OF_PACKET(%SEND_START_OF_PACKET##) = ;
- 'S/TART' ['-'] ['O/F'] ['-'] ['P/ACKET'] ( [.B] '=' [.B] | .B ) .DEC3
- SEND_TIMEOUT(%SEND_TIMEOUT##) = ;
- 'T/IMEOUT' ( '=' | .B ) .DEC
-
- SET_TAB_EXPANSION(%SET_TAB_EXPANSION##) = 'TAB' 'EX/PANSION' ( [.B] '=' [.B] | .B );
- ( ;
- SET_TAB_EXPANSION_OFF | ;
- SET_TAB_EXPANSION_ON ;
- )
- SET_TAB_EXPANSION_OFF(%SET_TAB_EXPANSION_OFF##) = ( 'OFF' | 'NO' )
- SET_TAB_EXPANSION_ON(%SET_TAB_EXPANSION_ON##) = ( 'ON' | 'YES' )
-
- SET_TABS(%SET_TABS##) = 'TABS' [<',',.DEC3>]
-
- SET_RETRY(%SET_RETRY##) = 'R/ETRY' ['C/OUNT'] ['F/OR'] ;
- ( ;
- RETRY_INITIAL | ;
- RETRY_PACKETS ;
- )
- RETRY_INITIAL(%RETRY_INITIAL##) = 'I/NITIAL' ['P/ACKETS'] .DEC
- RETRY_PACKETS(%RETRY_PACKETS##) = 'P/ACKETS' .DEC
-
- HOW = ( ON | OVER | INTO )
- ON(%ON##) = 'ON'
- OVER(%OVER##) = 'OVER'
- INTO(%INTO##) = 'INTO'
-
- SEPARATOR = ( [.B] '=' [.B] | .B )
-